home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / dev / mui / MCC_HTMLtext.lha / MCC_HTMLtext / Developer / e / examples / HTMLtext-DEMO.e next >
Encoding:
Text File  |  1997-04-21  |  2.3 KB  |  65 lines
  1.  
  2. OPT PREPROCESS
  3.  
  4. MODULE  'muimaster','libraries/mui','utility/tagitem','intuition/classes',
  5.         'intuition/classusr','utility/hooks','htmltext_mcc','amigalib/boopsi',
  6.         'mui/htmltext_mcc'
  7.  
  8. DEF ap_Test=NIL,wi_Test=NIL,running,result,signal,html,string
  9.  
  10. ENUM NONE,NOMUI,BADGUI
  11.  
  12. PROC main() HANDLE
  13.  
  14.     IF (muimasterbase:=OpenLibrary(MUIMASTER_NAME,MUIMASTER_VMIN))=NIL THEN Raise(NOMUI)
  15.  
  16.     ap_Test:=   ApplicationObject,
  17.                     MUIA_Application_Base,'HTMLTEXTDEMO',
  18.                     MUIA_Application_Title,'HTMLtext-DEMO',
  19.                     SubWindow, wi_Test:=WindowObject,
  20.                         MUIA_Window_Title,'HTMLtext-DEMO',
  21.                         MUIA_Window_ID,123456,
  22.                        
  23.                         WindowContents,VGroup,                                            
  24.                             Child,html:=HTMLtextObject, /* create the object */
  25.                                 TextFrame,
  26.                                 End,
  27.                             Child,string:=StringObject,
  28.                                 StringFrame,
  29.                                 End,
  30.                             End,
  31.                         End,
  32.                     End
  33.  
  34.     IF ap_Test=NIL THEN Raise(BADGUI)
  35.  
  36.     /* we want to show changes by the HTMLtextObject so we put a notification on
  37.        the string gadget which will then update the HTML display */
  38.  
  39.     doMethodA(string, [MUIM_Notify,MUIA_String_Contents,MUIV_EveryTime,html,3,MUIM_Set,MUIA_HTMLtext_Contents,MUIV_TriggerValue])
  40.     doMethodA(wi_Test,[MUIM_Notify,MUIA_Window_CloseRequest,MUIV_EveryTime,ap_Test,2,MUIM_Application_ReturnID,MUIV_Application_ReturnID_Quit])
  41.  
  42.     set(string,MUIA_String_Contents,'<hr>This <i>is a <small>small</small> <big>Demo</big></i> of he <b>HTMLtext class</b>.<hr>')
  43.  
  44.     set(wi_Test,MUIA_Window_Open,MUI_TRUE)
  45.  
  46.     running:=1
  47.  
  48.     /* the ideal input loop... */
  49.  
  50.     WHILE running
  51.         IF CtrlC() THEN running:=FALSE
  52.         result:=doMethodA(ap_Test,[MUIM_Application_Input,{signal}])
  53.         SELECT result
  54.             CASE MUIV_Application_ReturnID_Quit
  55.                 running:=FALSE
  56.         ENDSELECT
  57.         IF signal THEN Wait(signal)
  58.     ENDWHILE
  59.     Raise(NONE)
  60. EXCEPT
  61.     IF ap_Test THEN Mui_DisposeObject(ap_Test)
  62.     IF muimasterbase THEN CloseLibrary(muimasterbase)
  63. ENDPROC
  64.         
  65.